(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      3137,         90]
NotebookOptionsPosition[      2652,         74]
NotebookOutlinePosition[      3184,         92]
CellTagsIndexPosition[      3141,         89]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"setFont", "[", 
    RowBox[{"fontFamily_", ",", "fontSize_"}], "]"}], ":=", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"styleNB", "=", 
        RowBox[{"Notebook", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Cell", "[", 
            RowBox[{"StyleData", "[", 
             RowBox[{"StyleDefinitions", "\[Rule]", "\"\<Default.nb\>\""}], 
             "]"}], "]"}], ",", 
           RowBox[{"Cell", "[", 
            RowBox[{
             RowBox[{"StyleData", "[", "\"\<StandardForm\>\"", "]"}], ",", 
             RowBox[{"FontFamily", "\[Rule]", 
              RowBox[{"ToString", "[", "fontFamily", "]"}]}], ",", 
             RowBox[{"FontSize", "\[Rule]", 
              RowBox[{"ToExpression", "[", "fontSize", "]"}]}]}], "]"}]}], 
          "}"}], "]"}]}], ",", 
       RowBox[{"styleSheetName", "=", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{
          "$UserBaseDirectory", ",", "\"\<SystemFiles\>\"", ",", 
           "\"\<FrontEnd\>\"", ",", "\"\<StyleSheets\>\"", ",", 
           "\"\<myStyle.nb\>\""}], "}"}], "]"}]}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FileExistsQ", "[", "styleSheetName", "]"}], ",", 
        RowBox[{"SetOptions", "[", 
         RowBox[{"$FrontEnd", ",", 
          RowBox[{
          "DefaultStyleDefinitions", "\[Rule]", "\"\<Default.nb\>\""}]}], 
         "]"}]}], "]"}], ";", 
      RowBox[{"Export", "[", 
       RowBox[{"styleSheetName", ",", "styleNB"}], "]"}], ";", 
      RowBox[{"SetOptions", "[", 
       RowBox[{"$FrontEnd", ",", 
        RowBox[{"DefaultStyleDefinitions", "\[Rule]", "styleSheetName"}]}], 
       "]"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"setFont", "[", 
  RowBox[{"\"\<Consolas\>\"", ",", "18"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8388079028374224`*^9, 3.8388079231918464`*^9}, 
   3.8388079625199547`*^9, 3.838811466611869*^9},
 CellLabel->
  "In[365]:=",ExpressionUUID->"bea0a6c9-d1e0-44ae-a97a-0416665ed000"]
},
WindowSize->{1536, 781},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->FrontEnd`FileName[{$RootDirectory, "C:", "Users", "YU", 
   "AppData", "Roaming", "Mathematica", "SystemFiles", "FrontEnd", 
   "StyleSheets"}, "myStyle.nb", CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2090, 52, 414, "Input",ExpressionUUID->"bea0a6c9-d1e0-44ae-a97a-0416665ed000"]
}
]
*)

